Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Windows.Forms

Public Class FrmCrNXTHangMau
    Private arg As Integer
    Private data As DataTable
    Private thang, nam, kho As String
    Private tiendauky As Double
    Private customerReport As ReportDocument

    Public Sub setArg(ByVal i As Integer)
        arg = i
    End Sub

    Delegate Sub WaitDelegate()

    Private Sub FrmCrNXTHangMau_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        globalVariale.runWaitting = True
        Dim wd As New WaitDelegate(AddressOf moduleWaitting.runningWait)
        wd.BeginInvoke(Nothing, Nothing)
        Dim sqlQuery As String = ""

        If arg = 1 Then
            sqlQuery = "SELECT * FROM tbl_dot_nhapxuathangmau where recycleID='" & nam & thang & "' AND (soluong_dauky<>0 OR soluongnhap_trongky<>0 OR soluongxuat_trongky<>0 OR soluongcuoiky<>0)ORDER BY ten_bietduoc"
            'sqlQuery += " and soluongxuat_trongky <> 0 and thanhtienxuat_trongky <> 0 ;"
        Else
            sqlQuery = "SELECT * FROM tbl_dot_nhapxuathangmau_ketoan where recycleID='" & nam & thang & "' "
            sqlQuery += "AND (soluong_dauky<>0 OR soluongnhap_trongky<>0 OR soluongxuat_trongky<>0 OR soluongcuoiky<>0)ORDER BY ten_bietduoc"
            'sqlQuery += " and soluongxuat_trongky <> 0 and thanhtienxuat_trongky <> 0 ;"
        End If

        Dim reportPath = Application.StartupPath & "\" & "crNhapXuatTonHangMau.rpt"
        customerReport = New ReportDocument()
        customerReport.Load(reportPath)
        customerReport.SetDataSource(moduleReportConfig.GetDataTable(sqlQuery))
        customerReport.SetParameterValue("month", thang)
        customerReport.SetParameterValue("year", nam)
        customerReport.SetParameterValue("TKho", kho)
        If arg = 2 Then
            customerReport.SetParameterValue("KD_KT", "KT")
        Else
            customerReport.SetParameterValue("KD_KT", "KD")
        End If
        Me.CrNXTTongHopview.ReportSource = customerReport

        globalVariale.runWaitting = False
    End Sub

    Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub
    Public Sub setThang(ByVal s As String)
        thang = s
    End Sub

    Public Sub setNam(ByVal s As String)
        nam = s
    End Sub
    Public Sub setKho(ByVal s As String)
        kho = s
    End Sub

    Public Sub setData(ByVal d As DataTable)
        data = d
    End Sub


End Class
